-- 09/01/2010
--		CAPITULO 1 - Un primer programa

--   Habiendo instalado Euphoria correctamente grabaremos desde cualquier editor de textos
-- este archivo en formato .exw ( para Windows ) o .exu para Linux. Si el sistema operativo
-- tiene asignado el programa con el que se abrirá estos archivos entonces con un doble click de
-- ratón se ejecutaría, al menos en Windows. Si no ocurre esto, siempre podemos ejecutar el
-- intérprete EXW.EXE y le añadimos nuestro archivo.
-----------------------------------------------------------------------------
sequence dat
dat={"El numero PI es ",3.14159265,"Tres y cuatro son ",3,4}
puts(1,dat[1]) 
?dat[2]
puts(1,dat[3]) 
?dat[4]+dat[5]
dat[1] = 1.4142
?dat[1]
puts(1,"\n\nPulse una tecla para terminar.")
while get_key()=-1 do end while
----------------------------------------------------------------------------
-- Vayamos por partes.

-- sequence dat crea una variable secuencia sin definir. Si el programa terminara aqui el verificador
-- nos informaria que la variable dat no ha sido usada.

-- dat={"El número PI es ",3.14159265,"Tres y cuatro son ",3,4} es la definición de la variable dat,
-- la cual consta de 5 datos indexados en donde dat[1] y dat[3] son cadenas de caracteres ( strings ),
-- dat[2] es un dato tipo atom ( número decimal ) y por último a[4] y a[5] son enteros.

-- ? es bien conocido e imprime numeros decimales como enteros. Si le colocamos "Hola " nos imprimirá
-- los números ascii correspondientes a esa sequencia, es decir {72,111,108,97}

--puts(1," ") escribe una sequencia en un dispositivo que bien puede ser un archivo o pantalla (1).

-- Hay que aclarar que dat posee ahora 5 datos indexados y no 5 variables, ya que podemos sustituir a[1]
-- que es string por un número decimal como 1.4142 cosa imposible si hicieramos esto
-- atom num --> creamos una variable de tipo decimal
-- num = 1.4142
-- num="Hola " --> Intentamos redefinir num como cadena ascii produciendo un error de tipo en la
-- verificación ( Type chek failure ).